Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Програми з розгалуженими та циклічними алгоритмами

Інформація про навчальний заклад

ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут комп’ютерних наук та інформаційних технологій
Факультет:
Не вказано
Кафедра:
Захист інформації

Інформація про роботу

Рік:
2006
Тип роботи:
Лабораторна робота
Предмет:
Алгоритмічні мови і програмування
Група:
ІБ

Частина тексту файла

МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА” ІКТА кафедра „ЗАХИСТ ІНФОРМАЦІЇ” ЗВІТ до лабораторної роботи №2 б) З КУРСУ “АЛГОРИТМІЧНІ МОВИ І ПРОГРАМУВАННЯ” на тему: „Програми з розгалуженими та циклічними алгоритмами” Варіант № 12 Виконав: студент групи ІБ – 1 Львів - 2006 2. ПОВНИЙ ТЕКСТ ЗАВДАННЯ Скласти блок-схемy алгоритмy та програмy мовою Турбо-Паскаль для табулювання функції, представленої рядом:  при a = 1; b=2; h=0.1; d=0.001; на інтервалі [a, b] з кроком табуляції h та абсолютною похибкою d. Оцінку похибки здійснювати за значенням модуля чергового члена ряду. Забезпечити ввід значень інтервалу, кроку табулювання та похибки з клавіатури і вивід результатів на дисплей. 3. ОСТАТОЧНА ВЕРСІЯ БЛОК-СХЕМИ АЛГОРИТМУ 4. СПИСОК ІДЕНТИФІКАТОРІВ КОНСТАНТ, ЗМІННИХ, ПРОЦЕДУР І ФУНКЦІЙ, ВИКОРИСТАНИХ У ПРОГРАМІ, ТА ЇХ ПОЯСНЕННЯ a, b, h, d, y, sum – змінні типу real для зберігання введених даних та результату роботи; k – змінна типу integer; clrscr – процедура очистки екрана яка об’явлена в модулі crt; writeln – процедура виведення текстових повідомлень і значень змінних на екран; readln – процедура яка зчитує дані з клавіатури та присвоює відповідне значення змінній або очікує натискання клавіші Enter; exp(x) – функція яка обчислює експоненту числа; ln(x) – функція для обчислення натурального логарифму числа x; cos(x) – функція знаходження косинуса кута x заданого в радіанах; abs(x) – функція яка повертає значення модуля змінної x. mod – операція для знаходження остачі від ділення. 5. ОСТАТОЧНА ВЕРСІЯ ПРОГРАМИ program lab3; uses crt; var a,b,h,d,y,sum:real; k:integer; begin clrscr; writeln('Vvedit interval [a,b], krok [h] ta pohubky [d]'); write('a = '); readln(a); write('b = '); readln(b); write('h = '); readln(h); write('d = '); readln(d); writeln; while (a<=b+h/2) do begin sum:=0; k:=1; repeat y:=exp(4*ln(abs(cos(exp(k*ln(2))*a))))/exp(2*k*ln(2)); if (k mod 2 =1) then y:=-y; k:=k+1; sum:=sum+y; until (abs(y)<d); writeln('x = ',a:3:1,' sum = ',sum:2:4, ' y = ',abs(y):2:6); a:=a+h; end; readln; end. 6. РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ Vvedit interval [a,b], krok [h] ta pohubky [d]: a = 1 b = 2 h = 0.1 d = 0.001 x = 1.0 sum = 0.0039 y = 0.00000700281 x = 1.1 sum = -0.0294 y = 0.00055759140 x = 1.2 sum = -0.0739 y = 0.00000366347 x = 1.3 sum = -0.1332 y = 0.00007368013 x = 1.4 sum = -0.1745 y = 0.00002653663 x = 1.5 sum = -0.1948 y = 0.00012646103 x = 1.6 sum = -0.1991 y = 0.00012174461 x = 1.7 sum = -0.1836 y = 0.00020107042 x = 1.8 sum = -0.1532 y = 0.00007120208 x = 1.9 sum = -0.0976 y = 0.00024909921 x = 2.0 sum = -0.0456 y = 0.00002801124
Антиботан аватар за замовчуванням

01.01.1970 03:01

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини